0 REM THE TRANSACTOR VOLUME 5 ISSUE 06         PAGE 71
10 REM  SAVE"@0:FILCOMP C64.DAT",8
100 REM ** RTE/84 - DATA TO CREATE 'FILE COMPARE C64' ON DISKETTE AS PRG
110 INPUT"DRIVE #, NEW PROGRAM NAME ";DR$,FL$
120 OPEN 15,8,15: OPEN 5,8,5,(DR$)+":"+FL$+",P,W"
130 INPUT#15,E,E$,B,C: IF E THEN CLOSE 15: PRINT E,E$,B,C: STOP
140 FOR J= 2049 TO 2433 : READ X: PRINT#5,CHR$(X);: CH=CH+X: NEXT: CLOSE5
150 IF CH<> 38861  THEN PRINT"CHECKSUM ERROR": END
160 PRINT"** PROGRAM COMPLETE **": END
170 :
180 DATA   1,   8,  37,   8,  10,   0, 158,  32
190 DATA  50,  48,  56,  55,  32,  58,  32,  42
200 DATA  42,  32,  70,  73,  76,  69,  32,  67
210 DATA  79,  77,  80,  65,  82,  69,  32,  67
220 DATA  54,  52,  32,  42,  42,   0,   0,   0
230 DATA 160,   9, 169,  71,  32,  30, 171,  32
240 DATA 207, 255,  56, 233,  48, 133,  90, 201
250 DATA   3,  48, 244, 233,   5, 176, 240, 169
260 DATA  13,  32, 210, 255, 169,   0, 133, 183
270 DATA 169,   1, 133, 184, 165,  90, 133, 186
280 DATA 169, 255, 133, 185,  32,  74, 243, 169
290 DATA   0, 133,  87, 133,  88, 162,   5, 160
300 DATA   9, 169,  97,  32,  11,   9, 162,   6
310 DATA 160,   9, 169,  97,  32,  11,   9, 165
320 DATA 145, 201, 127, 208,   3,  76, 246,   8
330 DATA 162,   5,  32, 198, 255,  32, 207, 255
340 DATA 133,  89,  32, 204, 255, 162,   6,  32
350 DATA 198, 255,  32, 207, 255,  72, 165, 144
360 DATA 133,  91,  32, 204, 255, 104, 197,  89
370 DATA 240,  78,  72, 162,   1,  32, 201, 255
380 DATA 169,  36,  32, 210, 255, 165,  88,  32
390 DATA  49,   9, 165,  88,  32,  61,   9, 165
400 DATA  87,  32,  49,   9, 165,  87,  32,  61
410 DATA   9, 169,  32,  32, 210, 255, 169,  36
420 DATA  32, 210, 255, 165,  89,  32,  49,   9
430 DATA 165,  89,  32,  61,   9, 169,  32,  32
440 DATA 210, 255, 169,  36,  32, 210, 255, 104
450 DATA  72,  32,  49,   9, 104,  32,  61,   9
460 DATA 169,  13,  32, 210, 255,  32, 204, 255
470 DATA 230,  87, 165,  87, 208,   2, 230,  88
480 DATA 165,  91, 208,   3,  76, 110,   8, 169
490 DATA   1,  32, 145, 242, 169,   5,  32, 145
500 DATA 242, 169,   6,  32, 145, 242,  32, 204
510 DATA 255,  76, 116, 164, 134, 184, 134, 185
520 DATA  32,  30, 171,  32,  96, 165, 162,   0
530 DATA 189,   0,   2, 240,   3, 232, 208, 248
540 DATA 134, 183, 169,   0, 133, 187, 169,   2
550 DATA 133, 188, 169,   8, 133, 186,  32,  74
560 DATA 243,  96,  74,  74,  74,  74, 170, 189
570 DATA 112,   9,  32, 210, 255,  96,  41,  15
580 DATA 170, 189, 112,   9,  32, 210, 255,  96
590 DATA  51,  41,  32,  83,  67,  82,  69,  69
600 DATA  78,  32,  79,  82,  32,  52,  41,  32
610 DATA  80,  82,  73,  78,  84,  69,  82,  32
620 DATA  58,   0,  68,  82,  35,  58,  70,  73
630 DATA  76,  69,  78,  65,  77,  69,  32,  62
640 DATA   0,  48,  49,  50,  51,  52,  53,  54
650 DATA  55,  56,  57,  65,  66,  67,  68,  69
660 DATA  70